home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
gfx
/
jcosub24.lha
/
JACOsub
/
rexx
/
savescript.jsrx
< prev
next >
Wrap
Text File
|
1993-12-26
|
468b
|
22 lines
/* JACOsub SAVESCRIPT command demonstration.
This command causes JACOsub save the script currently in memory
to a the specified file.
SAVESCRIPT returns RESULT=0 if successful, or RESULT=1 if a problem
occurred.
*/
if ~arg() then do ; say 'No file name.' ; exit 1 ; end
parse arg filename
options results
address 'JACOsub'
'SAVESCRIPT' filename
if result then
say 'script failed to be written'
else
say 'script was written successfully'
exit result